home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / public / fax / src / util / dpsprinter.ps < prev    next >
Text File  |  1994-08-01  |  3KB  |  112 lines
  1. %!
  2. %%Title: dpsprinter.ps -- DPS prolog to emulate some printer features.
  3.  
  4. %%Notice: Copyright (c) 1989 Adobe Systems Incorporated.  All rights reserved.
  5.  
  6. % $Revision: 1.2 $
  7. % $Date: 1991/05/23 12:50:28 $
  8.  
  9. %
  10. % This file makes a number of definitions that are technically system specific
  11. % but are used by many existing PostScript language drivers that were written
  12. % without sufficient attention to the specification.
  13. % 
  14. % This prolog ensures that serverdict, exitserver, and assorted statusdict 
  15. % operators are defined as expected.  The flushfile operator is also redefined
  16. % to allow Macintosh files with a prepended Laser Prep file to work properly.
  17. % 
  18. % There is one special "feature" definition.  The ASCII character \004
  19. % (CTRL-D) is defined as a no-op operator in case the prolog contains
  20. % one to indicate end-of-file in some contexts.
  21. % 
  22. %%BeginProcSet: DPSPrinter 1 0
  23.  
  24. /serverdict where {%if
  25.   pop
  26. } {%else
  27.   /serverdict 1 dict def
  28. } ifelse
  29.  
  30. serverdict /exitserver known not {
  31.   % NOTE: We let the usual invalidaccess error occur if serverdict is not
  32.   %       writeable and exitserver is not known.  This is unlikely because
  33.   %       either serverdict was just created (above) or it already existed
  34.   %       in which case exitserver should have been defined.
  35.   serverdict /exitserver
  36.     % int exitserver --
  37.   {
  38.     0 ne {
  39.       /exitserver errordict /invalidaccess get exec
  40.     } if
  41.     {{end} loop} stopped pop    % Clear dictstack
  42.     clear
  43.   } bind put
  44. } if
  45.  
  46. statusdict /execjob known not {
  47.   statusdict /execjob {exec} bind put
  48. } if
  49.  
  50. userdict /legal known not {
  51.   userdict /legal {} put
  52. } if
  53.  
  54. userdict /letter known not {
  55.   userdict /letter {} put
  56. } if
  57.  
  58. statusdict /pagecount known not {
  59.   statusdict /pagecount 0 put
  60. } if
  61.  
  62. statusdict /printername known not {
  63.   statusdict /printername (DPS) put
  64. } if
  65.  
  66. statusdict /setjobtimeout known not {
  67.   statusdict /setjobtimeout {pop} bind put
  68. } if
  69.  
  70. statusdict /setrealdevice known not {
  71.   statusdict /setrealdevice {} put
  72. } if
  73.  
  74. statusdict /waittimeout known not {
  75.   statusdict /waittimeout 600 put
  76. } if
  77.  
  78. % The Mac Laser Prep file executes the flushfile operator to get to the end
  79. % of the prolog.  When documents are saved with the prolog attached, the
  80. % flushfile consumes the document and nothing is printed.  To get around this
  81. % problem the definition of flushfile is changed below to consume bytes of
  82. % input until a PostScript language comment (%) character is found.  The
  83. % rest of the line is then consumed before the revised flushfile terminates.
  84.  
  85. /*flushfile /flushfile load def
  86.  
  87. /flushfile
  88.   % file flushfile --
  89. {%def
  90.   {%loop -- search for next percent character in file
  91.     dup                % Copy file parameter
  92.     read {            % Consume character
  93.       8#045 eq {        % Check for ASCII percent character
  94.     exit            % Leave loop
  95.       } if
  96.     } if
  97.   } loop
  98.   {%loop -- search for newline character at end of comment
  99.     dup                % Copy file parameter
  100.     read {            % Consume character
  101.       8#012 eq {        % Check for ASCII newline character
  102.     exit            % Leave loop
  103.       } if
  104.     } if
  105.   } loop
  106.   pop                % Discard file parameterp
  107. } bind def
  108.  
  109. (\004) cvn {} def        % To ignore ^D at the end of prologs.
  110.  
  111. %%EndProcSet
  112.